SetFillPattern procedure

  DECLARATION:  SetFillPattern(Pattern : FillPatternType; Color : Word);

      PURPOSE:  Selects a user defined fill pattern

         UNIT:  Graph

      REMARKS:  Sets the pattern and color to the bit pattern specified in
                Pattern and the color specified by Color.  The FillPattern
                will be used for all filling done by Bar, Bar3D, FillPoly,
                FloodFill and PieSlice.

                If the value passed to SetFillPattern is invalid, GraphResult
                will return a value of -11 (grError) and the current fill
                settings will be left unchanged.

                FillPatternType is predefined as follows:

                     Type
                        FillPatternType  =  Array[1..8] of byte;

 RESTRICTIONS:   Must first be in graphics mode.